5 IFA=.THENA=1:LOAD"SUBSCRIBE FORM",8,1
10 POKE53280,7:POKE53281,7
20 PRINT"[147]         [204][207][193][196][211][212][193][210] [198][207][210][205][211] [208][210][201][206][212][197][210]"
30 PRINT"        1) [208]RINT [211]UBMISSION [198]ORM"
40 PRINT"        2) [208]RINT [211]UBSCRIPTION [198]ORM"
50 PRINT"        3) [210]ETURN TO [204]OADSTAR":POKE198,.
60 GETA$:IFA$<"1"ORA$>"3"THEN60
70 IFA$="2"THEN2000
80 IFA$="3"THEN60000
90 :
1000 GOSUB3000:IFNOT(OK)THEN10
1010 GOSUB4000:IF(AB)THEN10
1020 OPEN4,4,7:OPEN3,8,3,"SUBMISSION FORM":PRINT#4,"          ";
1030 FORI=.TO1:GET#3,A$:I=ST
1040 IFA$=CHR$(13)THENPRINT#4:PRINT#4,"          ";:GOTO1060
1050 PRINT#4,A$;
1060 NEXT:CLOSE3
1070 FORA=1TO7:PRINT#4:NEXT
1080 CLOSE4:GOTO10
1090 :
2000 GOSUB3000:IFNOT(OK)THEN10
2010 GOSUB4000:IF(AB)THEN10
2020 OPEN4,4,7:SYS51137,32768:PRINT#4
2030 CLOSE4:GOTO10
2040 :
3000 OPEN15,4,15:CLOSE15
3010 IFST=.THENOK=-1:RETURN
3020 OK=.
3030 PRINT"      [197]RROR:  [208]RINTER [206]OT [210]EADY!"
3040 FORA=1TO2000:NEXT:RETURN
3050 :
4000 PRINT"       [211]ET PRINTER TO TOP OF PAPER."
4010 PRINT" [208]RESS [211][208][193][195][197] TO CONTINUE OR [193] TO [193][194][207][210][212]."
4020 A=PEEK(203):IFA<>60ANDA<>10THEN4020
4030 AB=.:IFA=10THENAB=-1
4040 RETURN
4050 :
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 PRINT"[147]"
60030 PRINT"[158]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
60040 PRINT"RUN"
60050 POKE631,13:POKE632,13:POKE198,2